home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 January: Mac OS SDK / Dev.CD Jan 98 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / AIncludes / TextEdit.a < prev    next >
Encoding:
Text File  |  1997-08-12  |  25.8 KB  |  898 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        TextEdit.a
  3. ;
  4. ;    Contains:    TextEdit Interfaces.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Release:    Universal Interfaces 3.0.1
  8. ;
  9. ;    Copyright:    © 1985-1997 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__TEXTEDIT__') = 'UNDEFINED' THEN
  19. __TEXTEDIT__ SET 1
  20.  
  21.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  22.     include 'Types.a'
  23.     ENDIF
  24.     IF &TYPE('__QUICKDRAW__') = 'UNDEFINED' THEN
  25.     include 'Quickdraw.a'
  26.     ENDIF
  27.     IF &TYPE('__MIXEDMODE__') = 'UNDEFINED' THEN
  28.     include 'MixedMode.a'
  29.     ENDIF
  30.  
  31.  
  32.  
  33. ; typedef TERec *                        TEPtr
  34.  
  35. ; typedef TEPtr *                        TEHandle
  36.  
  37. ;  
  38. ;    Important note about TEClickLoopProcPtr and WordBreakProcPtr
  39. ;
  40. ;    At one point these were defined as returning the function result in the 
  41. ;    condition code Z-bit.  This was correct, in that it was what the 68K
  42. ;    implementation of TextEdit actually tested.  But, MixedMode had a different 
  43. ;    idea of what returning a boolean in the Z-bit meant.  MixedMode was setting
  44. ;    the Z-bit the complement of what was wanted.  
  45. ;    
  46. ;    Therefore, these ProcPtrs have been changed (back) to return the result in
  47. ;    register D0.  It turns out that for register based routines, 
  48. ;    MixedMode sets the Z-bit of the 68K emulator based on the contents 
  49. ;    of the return result register.  Thus we can get the Z-bit set correctly.  
  50. ;    
  51. ;    But, when TextEdit is recoded in PowerPC, if it calls a 68K ClickLoop
  52. ;    or WordBreak routine, register D0 had better have the result (in addition
  53. ;    to the Z-bit). Therefore all 68K apps should make sure their ClickLoop or
  54. ;    WordBreak routines set register D0 at the end.
  55. ;
  56.  
  57.  
  58. ;  
  59. ;    There is no function to get/set the low-mem for FindWordHook at 0x07F8.
  60. ;    This is because it is not a low-mem ProcPtr. That address is the entry
  61. ;    in the OS TrapTable for trap 0xA0FE.  You can use Get/SetTrapAddress to 
  62. ;    acccess it.    
  63. ;
  64.  
  65.  
  66. ; 
  67. ;    The following ProcPtrs cannot be written in or called from a high-level 
  68. ;    language without the help of mixed mode or assembly glue because they 
  69. ;    use the following parameter-passing conventions:
  70. ;
  71. ;    typedef pascal void (*HighHookProcPtr)(const Rect *r, TEPtr pTE);
  72. ;    typedef pascal void (*CaretHookProcPtr)(const Rect *r, TEPtr pTE);
  73. ;
  74. ;        In:
  75. ;            =>     r                        on stack
  76. ;            =>    pTE                        A3.L
  77. ;        Out:
  78. ;            none
  79. ;
  80. ;    typedef pascal Boolean (*EOLHookProcPtr)(char theChar, TEPtr pTE, TEHandle hTE);
  81. ;
  82. ;        In:
  83. ;            =>     theChar                    D0.B
  84. ;            =>    pTE                        A3.L
  85. ;            =>    hTE                        A4.L
  86. ;        Out:
  87. ;            <=    Boolean                    Z bit of the CCR
  88. ;
  89. ;    typedef pascal unsigned short (*WidthHookProcPtr)(unsigned short textLen,
  90. ;     unsigned short textOffset, void *textBufferPtr, TEPtr pTE, TEHandle hTE);
  91. ;    typedef pascal unsigned short (*TextWidthHookProcPtr)(unsigned short textLen,
  92. ;     unsigned short textOffset, void *textBufferPtr, TEPtr pTE, TEHandle hTE);
  93. ;
  94. ;        In:
  95. ;            =>     textLen                    D0.W
  96. ;            =>    textOffset                D1.W
  97. ;            =>    textBufferPtr            A0.L
  98. ;            =>    pTE                        A3.L
  99. ;            =>    hTE                        A4.L
  100. ;        Out:
  101. ;            <=    unsigned short            D1.W
  102. ;
  103. ;    typedef pascal unsigned short (*NWidthHookProcPtr)(unsigned short styleRunLen,
  104. ;     unsigned short styleRunOffset, short slop, short direction, void *textBufferPtr, 
  105. ;     short *lineStart, TEPtr pTE, TEHandle hTE);
  106. ;
  107. ;        In:
  108. ;            =>     styleRunLen                D0.W
  109. ;            =>    styleRunOffset            D1.W
  110. ;            =>    slop                    D2.W (low)
  111. ;            =>    direction                D2.W (high)
  112. ;            =>    textBufferPtr            A0.L
  113. ;            =>    lineStart                A2.L
  114. ;            =>    pTE                        A3.L
  115. ;            =>    hTE                        A4.L
  116. ;        Out:
  117. ;            <=    unsigned short            D1.W
  118. ;
  119. ;    typedef pascal void (*DrawHookProcPtr)(unsigned short textOffset, unsigned short drawLen,
  120. ;     void *textBufferPtr, TEPtr pTE, TEHandle hTE);
  121. ;
  122. ;        In:
  123. ;            =>     textOffset                D0.W
  124. ;            =>    drawLen                    D1.W
  125. ;            =>    textBufferPtr            A0.L
  126. ;            =>    pTE                        A3.L
  127. ;            =>    hTE                        A4.L
  128. ;        Out:
  129. ;            none
  130. ;
  131. ;    typedef pascal Boolean (*HitTestHookProcPtr)(unsigned short styleRunLen,
  132. ;     unsigned short styleRunOffset, unsigned short slop, void *textBufferPtr,
  133. ;     TEPtr pTE, TEHandle hTE, unsigned short *pixelWidth, unsigned short *charOffset, 
  134. ;     Boolean *pixelInChar);
  135. ;
  136. ;        In:
  137. ;            =>     styleRunLen                D0.W
  138. ;            =>    styleRunOffset            D1.W
  139. ;            =>    slop                    D2.W
  140. ;            =>    textBufferPtr            A0.L
  141. ;            =>    pTE                        A3.L
  142. ;            =>    hTE                        A4.L
  143. ;        Out:
  144. ;            <=    pixelWidth                D0.W (low)
  145. ;            <=    Boolean                    D0.W (high)
  146. ;            <=    charOffset                D1.W
  147. ;            <=    pixelInChar                D2.W
  148. ;
  149. ;    typedef pascal void (*TEFindWordProcPtr)(unsigned short currentPos, short caller, 
  150. ;     TEPtr pTE, TEHandle hTE, unsigned short *wordStart, unsigned short *wordEnd);
  151. ;
  152. ;        In:
  153. ;            =>     currentPos                D0.W
  154. ;            =>    caller                    D2.W
  155. ;            =>    pTE                        A3.L
  156. ;            =>    hTE                        A4.L
  157. ;        Out:
  158. ;            <=    wordStart                D0.W
  159. ;            <=    wordEnd                    D1.W
  160. ;
  161. ;    typedef pascal void (*TERecalcProcPtr)(TEPtr pTE, unsigned short changeLength,
  162. ;       unsigned short *lineStart, unsigned short *firstChar, unsigned short *lastChar);
  163. ;
  164. ;        In:
  165. ;            =>     pTE                        A3.L
  166. ;            =>    changeLength            D7.W
  167. ;        Out:
  168. ;            <=    lineStart                D2.W
  169. ;            <=    firstChar                D3.W
  170. ;            <=    lastChar                D4.W
  171. ;
  172. ;    typedef pascal void (*TEDoTextProcPtr)(TEPtr pTE, unsigned short firstChar, unsigned short lastChar,
  173. ;                         short selector, GrafPtr *currentGrafPort, short *charPosition);
  174. ;
  175. ;        In:
  176. ;            =>     pTE                        A3.L
  177. ;            =>    firstChar                D3.W
  178. ;            =>    lastChar                D4.W
  179. ;            =>    selector                D7.W
  180. ;        Out:
  181. ;            <=    currentGrafPort            A0.L
  182. ;            <=    charPosition            D0.W
  183. ;            
  184. ;
  185.  
  186. TERec                    RECORD 0
  187. destRect                 ds        Rect            ; offset: $0 (0)
  188. viewRect                 ds        Rect            ; offset: $8 (8)
  189. selRect                     ds        Rect            ; offset: $10 (16)
  190. lineHeight                 ds.w    1                ; offset: $18 (24)
  191. fontAscent                 ds.w    1                ; offset: $1A (26)
  192. selPoint                 ds        Point            ; offset: $1C (28)
  193. selStart                 ds.w    1                ; offset: $20 (32)
  194. selEnd                     ds.w    1                ; offset: $22 (34)
  195. active                     ds.w    1                ; offset: $24 (36)
  196. wordBreak                 ds.l    1                ; offset: $26 (38)
  197. clickLoop                 ds.l    1                ; offset: $2A (42)
  198. clickTime                 ds.l    1                ; offset: $2E (46)
  199. clickLoc                 ds.w    1                ; offset: $32 (50)
  200. caretTime                 ds.l    1                ; offset: $34 (52)
  201. caretState                 ds.w    1                ; offset: $38 (56)
  202. just                     ds.w    1                ; offset: $3A (58)
  203. teLength                 ds.w    1                ; offset: $3C (60)
  204. hText                     ds.l    1                ; offset: $3E (62)
  205. hDispatchRec             ds.l    1                ; offset: $42 (66)        ;  added to replace recalBack & recalLines.  it's a handle anyway 
  206. clikStuff                 ds.w    1                ; offset: $46 (70)
  207. crOnly                     ds.w    1                ; offset: $48 (72)
  208. txFont                     ds.w    1                ; offset: $4A (74)
  209. txFace                     ds.w    1                ; offset: $4C (76)        ; txFace is unpacked byte
  210. txMode                     ds.w    1                ; offset: $4E (78)
  211. txSize                     ds.w    1                ; offset: $50 (80)
  212. inPort                     ds.l    1                ; offset: $52 (82)
  213. highHook                 ds.l    1                ; offset: $56 (86)
  214. caretHook                 ds.l    1                ; offset: $5A (90)
  215. nLines                     ds.w    1                ; offset: $5E (94)
  216. lineStarts                 ds.w    16001            ; offset: $60 (96)
  217. sizeof                     EQU *                    ; size:   $7D62 (32098)
  218.                         ENDR
  219.  
  220.                                                             ; Justification (word alignment) styles 
  221. teJustLeft                        EQU        0
  222. teJustCenter                    EQU        1
  223. teJustRight                        EQU        -1
  224. teForceLeft                        EQU        -2                    ; new names for the Justification (word alignment) styles 
  225. teFlushDefault                    EQU        0                    ;flush according to the line direction 
  226. teCenter                        EQU        1                    ;center justify (word alignment) 
  227. teFlushRight                    EQU        -1                    ;flush right for all scripts 
  228. teFlushLeft                        EQU        -2                    ;flush left for all scripts 
  229.  
  230.                                                             ; Set/Replace style modes 
  231. fontBit                            EQU        0                    ;set font
  232. faceBit                            EQU        1                    ;set face
  233. sizeBit                            EQU        2                    ;set size
  234. clrBit                            EQU        3                    ;set color
  235. addSizeBit                        EQU        4                    ;add size mode
  236. toggleBit                        EQU        5                    ;set faces in toggle mode
  237.  
  238.                                                             ; TESetStyle/TEContinuousStyle modes 
  239. doFont                            EQU        1                    ; set font (family) number
  240. doFace                            EQU        2                    ;set character style
  241. doSize                            EQU        4                    ;set type size
  242. doColor                            EQU        8                    ;set color
  243. doAll                            EQU        15                    ;set all attributes
  244. addSize                            EQU        16                    ;adjust type size
  245. doToggle                        EQU        32                    ;toggle mode for TESetStyle
  246.  
  247.                                                             ; offsets into TEDispatchRec 
  248. EOLHook                            EQU        0                    ;[UniversalProcPtr] TEEOLHook
  249. DRAWHook                        EQU        4                    ;[UniversalProcPtr] TEWidthHook
  250. WIDTHHook                        EQU        8                    ;[UniversalProcPtr] TEDrawHook
  251. HITTESTHook                        EQU        12                    ;[UniversalProcPtr] TEHitTestHook
  252. nWIDTHHook                        EQU        24                    ;[UniversalProcPtr] nTEWidthHook
  253. TextWidthHook                    EQU        28                    ;[UniversalProcPtr] TETextWidthHook
  254.  
  255.                                                             ; selectors for TECustomHook 
  256. intEOLHook                        EQU        0                    ;TEIntHook value
  257. intDrawHook                        EQU        1                    ;TEIntHook value
  258. intWidthHook                    EQU        2                    ;TEIntHook value
  259. intHitTestHook                    EQU        3                    ;TEIntHook value
  260. intNWidthHook                    EQU        6                    ;TEIntHook value for new version of WidthHook
  261. intTextWidthHook                EQU        7                    ;TEIntHook value for new TextWidthHook
  262. intInlineInputTSMTEPreUpdateHook EQU    8                    ;TEIntHook value for TSMTEPreUpdateProcPtr callback
  263. intInlineInputTSMTEPostUpdateHook EQU    9                    ;TEIntHook value for TSMTEPostUpdateProcPtr callback
  264.  
  265.                                                             ; feature or bit definitions for TEFeatureFlag 
  266. teFAutoScroll                    EQU        0                    ;00000001b
  267. teFTextBuffering                EQU        1                    ;00000010b
  268. teFOutlineHilite                EQU        2                    ;00000100b
  269. teFInlineInput                    EQU        3                    ;00001000b 
  270.                                                             ;    teFUseTextServices is obsolete. 
  271. teFUseInlineInput                EQU        5                    ;00100000b 
  272. teFInlineInputAutoScroll        EQU        6                    ;01000000b 
  273.  
  274.  
  275.                                                             ; action for the new "bit (un)set" interface, TEFeatureFlag 
  276. teBitClear                        EQU        0
  277. teBitSet                        EQU        1                    ;set the selector bit
  278. teBitTest                        EQU        -1                    ;no change; just return the current setting
  279.  
  280.                                                             ;constants for identifying the routine that called FindWord 
  281. teWordSelect                    EQU        4                    ;clickExpand to select word
  282. teWordDrag                        EQU        8                    ;clickExpand to drag new word
  283. teFromFind                        EQU        12                    ;FindLine called it ($0C)
  284. teFromRecal                        EQU        16                    ;RecalLines called it ($10)      obsolete 
  285.  
  286.                                                             ;constants for identifying TEDoText selectors 
  287. teFind                            EQU        0                    ;TEDoText called for searching
  288. teHighlight                        EQU        1                    ;TEDoText called for highlighting
  289. teDraw                            EQU        -1                    ;TEDoText called for drawing text
  290. teCaret                            EQU        -2                    ;TEDoText called for drawing the caret
  291.  
  292.  
  293. Chars                    RECORD 0
  294. elements                 ds.b    32001
  295.                          ORG 32002
  296. sizeof                     EQU *                    ; size:   $7D02 (32002)
  297.                         ENDR
  298.  
  299.  
  300. ; typedef CharsPtr *                    CharsHandle
  301.  
  302. StyleRun                RECORD 0
  303. startChar                 ds.w    1                ; offset: $0 (0)        ; starting character position
  304. styleIndex                 ds.w    1                ; offset: $2 (2)        ; index in style table
  305. sizeof                     EQU *                    ; size:   $4 (4)
  306.                         ENDR
  307. STElement                RECORD 0
  308. stCount                     ds.w    1                ; offset: $0 (0)        ; number of runs in this style
  309. stHeight                 ds.w    1                ; offset: $2 (2)        ; line height
  310. stAscent                 ds.w    1                ; offset: $4 (4)        ; font ascent
  311. stFont                     ds.w    1                ; offset: $6 (6)        ; font (family) number
  312. stFace                     ds.w    1                ; offset: $8 (8)        ; character Style
  313. stSize                     ds.w    1                ; offset: $A (10)        ; size in points
  314. stColor                     ds        RGBColor        ; offset: $C (12)        ; absolute (RGB) color
  315. sizeof                     EQU *                    ; size:   $12 (18)
  316.                         ENDR
  317. TEStyleTable            RECORD 0
  318. elements                 ds.b    1777 * STElement.sizeof
  319. sizeof                     EQU *                    ; size:   $7CF2 (31986)
  320.                         ENDR
  321.  
  322.  
  323. ; typedef STPtr *                        STHandle
  324.  
  325. LHElement                RECORD 0
  326. lhHeight                 ds.w    1                ; offset: $0 (0)        ; maximum height in line
  327. lhAscent                 ds.w    1                ; offset: $2 (2)        ; maximum ascent in line
  328. sizeof                     EQU *                    ; size:   $4 (4)
  329.                         ENDR
  330. LHTable                    RECORD 0
  331. elements                 ds.b    8001 * LHElement.sizeof
  332. sizeof                     EQU *                    ; size:   $7D04 (32004)
  333.                         ENDR
  334.  
  335.  
  336. ; typedef LHPtr *                        LHHandle
  337.  
  338. ScrpSTElement            RECORD 0
  339. scrpStartChar             ds.l    1                ; offset: $0 (0)        ; starting character position
  340. scrpHeight                 ds.w    1                ; offset: $4 (4)
  341. scrpAscent                 ds.w    1                ; offset: $6 (6)
  342. scrpFont                 ds.w    1                ; offset: $8 (8)
  343. scrpFace                 ds.w    1                ; offset: $A (10)        ; unpacked byte
  344. scrpSize                 ds.w    1                ; offset: $C (12)
  345. scrpColor                 ds        RGBColor        ; offset: $E (14)
  346. sizeof                     EQU *                    ; size:   $14 (20)
  347.                         ENDR
  348. ;  ARRAY [0..1600] OF ScrpSTElement 
  349. ScrpSTTable                RECORD 0
  350. elements                 ds.b    1601 * ScrpSTElement.sizeof
  351. sizeof                     EQU *                    ; size:   $7D14 (32020)
  352.                         ENDR
  353.  
  354.  
  355. StScrpRec                RECORD 0
  356. scrpNStyles                 ds.w    1                ; offset: $0 (0)        ; number of styles in scrap
  357. scrpStyleTab             ds        ScrpSTTable        ; offset: $2 (2)        ; table of styles for scrap
  358. sizeof                     EQU *                    ; size:   $7D16 (32022)
  359.                         ENDR
  360. ; typedef struct StScrpRec *            StScrpPtr
  361.  
  362. ; typedef StScrpPtr *                    StScrpHandle
  363.  
  364. NullStRec                RECORD 0
  365. teReserved                 ds.l    1                ; offset: $0 (0)        ; reserved for future expansion
  366. nullScrap                 ds.l    1                ; offset: $4 (4)        ; handle to scrap style table
  367. sizeof                     EQU *                    ; size:   $8 (8)
  368.                         ENDR
  369. ; typedef struct NullStRec *            NullStPtr
  370.  
  371. ; typedef NullStPtr *                    NullStHandle
  372.  
  373. TEStyleRec                RECORD 0
  374. nRuns                     ds.w    1                ; offset: $0 (0)        ; number of style runs
  375. nStyles                     ds.w    1                ; offset: $2 (2)        ; size of style table
  376. styleTab                 ds.l    1                ; offset: $4 (4)        ; handle to style table
  377. lhTab                     ds.l    1                ; offset: $8 (8)        ; handle to line-height table
  378. teRefCon                 ds.l    1                ; offset: $C (12)        ; reserved for application use
  379. nullStyle                 ds.l    1                ; offset: $10 (16)        ; Handle to style set at null selection
  380. runs                     ds.b    8001 * StyleRun.sizeof ; offset: $14 (20) ; ARRAY [0..8000] OF StyleRun
  381. sizeof                     EQU *                    ; size:   $7D18 (32024)
  382.                         ENDR
  383. ; typedef struct TEStyleRec *            TEStylePtr
  384.  
  385. ; typedef TEStylePtr *                    TEStyleHandle
  386.  
  387. TextStyle                RECORD 0
  388. tsFont                     ds.w    1                ; offset: $0 (0)        ; font (family) number
  389. tsFace                     ds.w    1                ; offset: $2 (2)        ; character Style
  390. tsSize                     ds.w    1                ; offset: $4 (4)        ; size in point
  391. tsColor                     ds        RGBColor        ; offset: $6 (6)        ; absolute (RGB) color
  392. sizeof                     EQU *                    ; size:   $C (12)
  393.                         ENDR
  394. ; typedef struct TextStyle *            TextStylePtr
  395.  
  396. ; typedef TextStylePtr *                TextStyleHandle
  397.  
  398. ; typedef short                         TEIntHook
  399.  
  400.  
  401.                                                             ; feature bit 4 for TEFeatureFlag no longer in use 
  402. teFUseTextServices                EQU        4                    ;00010000b 
  403.  
  404. ;
  405. ; pascal Handle TEScrapHandle(void)
  406. ;
  407.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  408.         Macro
  409.         _TEScrapHandle        &dest=(sp)
  410.             move.l            $0AB4,&dest
  411.         EndM
  412.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  413.         IMPORT_CFM_FUNCTION TEScrapHandle
  414.     ENDIF
  415.  
  416. ;
  417. ; pascal void TEInit(void )
  418. ;
  419.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  420.         _TEInit:    OPWORD    $A9CC
  421.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  422.         IMPORT_CFM_FUNCTION TEInit
  423.     ENDIF
  424.  
  425. ;
  426. ; pascal TEHandle TENew(const Rect *destRect, const Rect *viewRect)
  427. ;
  428.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  429.         _TENew:    OPWORD    $A9D2
  430.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  431.         IMPORT_CFM_FUNCTION TENew
  432.     ENDIF
  433.  
  434. ;
  435. ; pascal void TEDispose(TEHandle hTE)
  436. ;
  437.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  438.         _TEDispose:    OPWORD    $A9CD
  439.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  440.         IMPORT_CFM_FUNCTION TEDispose
  441.     ENDIF
  442.  
  443. ;
  444. ; pascal void TESetText(const void *text, long length, TEHandle hTE)
  445. ;
  446.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  447.         _TESetText:    OPWORD    $A9CF
  448.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  449.         IMPORT_CFM_FUNCTION TESetText
  450.     ENDIF
  451.  
  452. ;
  453. ; pascal CharsHandle TEGetText(TEHandle hTE)
  454. ;
  455.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  456.         _TEGetText:    OPWORD    $A9CB
  457.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  458.         IMPORT_CFM_FUNCTION TEGetText
  459.     ENDIF
  460.  
  461. ;
  462. ; pascal void TEIdle(TEHandle hTE)
  463. ;
  464.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  465.         _TEIdle:    OPWORD    $A9DA
  466.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  467.         IMPORT_CFM_FUNCTION TEIdle
  468.     ENDIF
  469.  
  470. ;
  471. ; pascal void TESetSelect(long selStart, long selEnd, TEHandle hTE)
  472. ;
  473.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  474.         _TESetSelect:    OPWORD    $A9D1
  475.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  476.         IMPORT_CFM_FUNCTION TESetSelect
  477.     ENDIF
  478.  
  479. ;
  480. ; pascal void TEActivate(TEHandle hTE)
  481. ;
  482.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  483.         _TEActivate:    OPWORD    $A9D8
  484.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  485.         IMPORT_CFM_FUNCTION TEActivate
  486.     ENDIF
  487.  
  488. ;
  489. ; pascal void TEDeactivate(TEHandle hTE)
  490. ;
  491.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  492.         _TEDeactivate:    OPWORD    $A9D9
  493.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  494.         IMPORT_CFM_FUNCTION TEDeactivate
  495.     ENDIF
  496.  
  497. ;
  498. ; pascal void TEKey(CharParameter key, TEHandle hTE)
  499. ;
  500.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  501.         _TEKey:    OPWORD    $A9DC
  502.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  503.         IMPORT_CFM_FUNCTION TEKey
  504.     ENDIF
  505.  
  506. ;
  507. ; pascal void TECut(TEHandle hTE)
  508. ;
  509.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  510.         _TECut:    OPWORD    $A9D6
  511.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  512.         IMPORT_CFM_FUNCTION TECut
  513.     ENDIF
  514.  
  515. ;
  516. ; pascal void TECopy(TEHandle hTE)
  517. ;
  518.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  519.         _TECopy:    OPWORD    $A9D5
  520.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  521.         IMPORT_CFM_FUNCTION TECopy
  522.     ENDIF
  523.  
  524. ;
  525. ; pascal void TEPaste(TEHandle hTE)
  526. ;
  527.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  528.         _TEPaste:    OPWORD    $A9DB
  529.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  530.         IMPORT_CFM_FUNCTION TEPaste
  531.     ENDIF
  532.  
  533. ;
  534. ; pascal void TEDelete(TEHandle hTE)
  535. ;
  536.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  537.         _TEDelete:    OPWORD    $A9D7
  538.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  539.         IMPORT_CFM_FUNCTION TEDelete
  540.     ENDIF
  541.  
  542. ;
  543. ; pascal void TEInsert(const void *text, long length, TEHandle hTE)
  544. ;
  545.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  546.         _TEInsert:    OPWORD    $A9DE
  547.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  548.         IMPORT_CFM_FUNCTION TEInsert
  549.     ENDIF
  550.  
  551. ;
  552. ; pascal void TESetAlignment(short just, TEHandle hTE)
  553. ;
  554.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  555.         _TESetAlignment:    OPWORD    $A9DF
  556.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  557.         IMPORT_CFM_FUNCTION TESetAlignment
  558.     ENDIF
  559.  
  560. ;
  561. ; pascal void TEUpdate(const Rect *rUpdate, TEHandle hTE)
  562. ;
  563.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  564.         _TEUpdate:    OPWORD    $A9D3
  565.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  566.         IMPORT_CFM_FUNCTION TEUpdate
  567.     ENDIF
  568.  
  569. ;
  570. ; pascal void TETextBox(const void *text, long length, const Rect *box, short just)
  571. ;
  572.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  573.         _TETextBox:    OPWORD    $A9CE
  574.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  575.         IMPORT_CFM_FUNCTION TETextBox
  576.     ENDIF
  577.  
  578. ;
  579. ; pascal void TEScroll(short dh, short dv, TEHandle hTE)
  580. ;
  581.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  582.         _TEScroll:    OPWORD    $A9DD
  583.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  584.         IMPORT_CFM_FUNCTION TEScroll
  585.     ENDIF
  586.  
  587. ;
  588. ; pascal void TESelView(TEHandle hTE)
  589. ;
  590.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  591.         _TESelView:    OPWORD    $A811
  592.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  593.         IMPORT_CFM_FUNCTION TESelView
  594.     ENDIF
  595.  
  596. ;
  597. ; pascal void TEPinScroll(short dh, short dv, TEHandle hTE)
  598. ;
  599.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  600.         _TEPinScroll:    OPWORD    $A812
  601.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  602.         IMPORT_CFM_FUNCTION TEPinScroll
  603.     ENDIF
  604.  
  605. ;
  606. ; pascal void TEAutoView(Boolean fAuto, TEHandle hTE)
  607. ;
  608.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  609.         _TEAutoView:    OPWORD    $A813
  610.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  611.         IMPORT_CFM_FUNCTION TEAutoView
  612.     ENDIF
  613.  
  614. ;
  615. ; pascal void TECalText(TEHandle hTE)
  616. ;
  617.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  618.         _TECalText:    OPWORD    $A9D0
  619.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  620.         IMPORT_CFM_FUNCTION TECalText
  621.     ENDIF
  622.  
  623. ;
  624. ; pascal short TEGetOffset(Point pt, TEHandle hTE)
  625. ;
  626.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  627.         _TEGetOffset:    OPWORD    $A83C
  628.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  629.         IMPORT_CFM_FUNCTION TEGetOffset
  630.     ENDIF
  631.  
  632. ;
  633. ; pascal Point TEGetPoint(short offset, TEHandle hTE)
  634. ;
  635.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  636.         Macro
  637.         _TEGetPoint
  638.             move.w              #$0008,-(sp)
  639.             dc.w                $A83D
  640.         EndM
  641.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  642.         IMPORT_CFM_FUNCTION TEGetPoint
  643.     ENDIF
  644.  
  645. ;
  646. ; pascal void TEClick(Point pt, Boolean fExtend, TEHandle h)
  647. ;
  648.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  649.         _TEClick:    OPWORD    $A9D4
  650.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  651.         IMPORT_CFM_FUNCTION TEClick
  652.     ENDIF
  653.  
  654. ;
  655. ; pascal TEHandle TEStyleNew(const Rect *destRect, const Rect *viewRect)
  656. ;
  657.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  658.         _TEStyleNew:    OPWORD    $A83E
  659.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  660.         IMPORT_CFM_FUNCTION TEStyleNew
  661.     ENDIF
  662.  
  663. ;
  664. ; pascal void TESetStyleHandle(TEStyleHandle theHandle, TEHandle hTE)
  665. ;
  666.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  667.         Macro
  668.         _TESetStyleHandle
  669.             move.w              #$0005,-(sp)
  670.             dc.w                $A83D
  671.         EndM
  672.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  673.         IMPORT_CFM_FUNCTION TESetStyleHandle
  674.     ENDIF
  675.  
  676. ;
  677. ; pascal TEStyleHandle TEGetStyleHandle(TEHandle hTE)
  678. ;
  679.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  680.         Macro
  681.         _TEGetStyleHandle
  682.             move.w              #$0004,-(sp)
  683.             dc.w                $A83D
  684.         EndM
  685.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  686.         IMPORT_CFM_FUNCTION TEGetStyleHandle
  687.     ENDIF
  688.  
  689. ;
  690. ; pascal void TEGetStyle(short offset, TextStyle *theStyle, short *lineHeight, short *fontAscent, TEHandle hTE)
  691. ;
  692.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  693.         Macro
  694.         _TEGetStyle
  695.             move.w              #$0003,-(sp)
  696.             dc.w                $A83D
  697.         EndM
  698.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  699.         IMPORT_CFM_FUNCTION TEGetStyle
  700.     ENDIF
  701.  
  702. ;
  703. ; pascal void TEStylePaste(TEHandle hTE)
  704. ;
  705.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  706.         Macro
  707.         _TEStylePaste
  708.             move.w              #$0000,-(sp)
  709.             dc.w                $A83D
  710.         EndM
  711.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  712.         IMPORT_CFM_FUNCTION TEStylePaste
  713.     ENDIF
  714.  
  715. ;
  716. ; pascal void TESetStyle(short mode, const TextStyle *newStyle, Boolean fRedraw, TEHandle hTE)
  717. ;
  718.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  719.         Macro
  720.         _TESetStyle
  721.             move.w              #$0001,-(sp)
  722.             dc.w                $A83D
  723.         EndM
  724.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  725.         IMPORT_CFM_FUNCTION TESetStyle
  726.     ENDIF
  727.  
  728. ;
  729. ; pascal void TEReplaceStyle(short mode, const TextStyle *oldStyle, const TextStyle *newStyle, Boolean fRedraw, TEHandle hTE)
  730. ;
  731.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  732.         Macro
  733.         _TEReplaceStyle
  734.             move.w              #$0002,-(sp)
  735.             dc.w                $A83D
  736.         EndM
  737.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  738.         IMPORT_CFM_FUNCTION TEReplaceStyle
  739.     ENDIF
  740.  
  741. ;
  742. ; pascal StScrpHandle TEGetStyleScrapHandle(TEHandle hTE)
  743. ;
  744.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  745.         Macro
  746.         _TEGetStyleScrapHandle
  747.             move.w              #$0006,-(sp)
  748.             dc.w                $A83D
  749.         EndM
  750.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  751.         IMPORT_CFM_FUNCTION TEGetStyleScrapHandle
  752.     ENDIF
  753.  
  754. ;
  755. ; pascal void TEStyleInsert(const void *text, long length, StScrpHandle hST, TEHandle hTE)
  756. ;
  757.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  758.         Macro
  759.         _TEStyleInsert
  760.             move.w              #$0007,-(sp)
  761.             dc.w                $A83D
  762.         EndM
  763.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  764.         IMPORT_CFM_FUNCTION TEStyleInsert
  765.     ENDIF
  766.  
  767. ;
  768. ; pascal long TEGetHeight(long endLine, long startLine, TEHandle hTE)
  769. ;
  770.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  771.         Macro
  772.         _TEGetHeight
  773.             move.w              #$0009,-(sp)
  774.             dc.w                $A83D
  775.         EndM
  776.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  777.         IMPORT_CFM_FUNCTION TEGetHeight
  778.     ENDIF
  779.  
  780. ;
  781. ; pascal Boolean TEContinuousStyle(short *mode, TextStyle *aStyle, TEHandle hTE)
  782. ;
  783.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  784.         Macro
  785.         _TEContinuousStyle
  786.             move.w              #$000A,-(sp)
  787.             dc.w                $A83D
  788.         EndM
  789.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  790.         IMPORT_CFM_FUNCTION TEContinuousStyle
  791.     ENDIF
  792.  
  793. ;
  794. ; pascal void TEUseStyleScrap(long rangeStart, long rangeEnd, StScrpHandle newStyles, Boolean fRedraw, TEHandle hTE)
  795. ;
  796.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  797.         Macro
  798.         _TEUseStyleScrap
  799.             move.w              #$000B,-(sp)
  800.             dc.w                $A83D
  801.         EndM
  802.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  803.         IMPORT_CFM_FUNCTION TEUseStyleScrap
  804.     ENDIF
  805.  
  806. ;
  807. ; pascal void TECustomHook(TEIntHook which, UniversalProcPtr *addr, TEHandle hTE)
  808. ;
  809.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  810.         Macro
  811.         _TECustomHook
  812.             move.w              #$000C,-(sp)
  813.             dc.w                $A83D
  814.         EndM
  815.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  816.         IMPORT_CFM_FUNCTION TECustomHook
  817.     ENDIF
  818.  
  819. ;
  820. ; pascal long TENumStyles(long rangeStart, long rangeEnd, TEHandle hTE)
  821. ;
  822.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  823.         Macro
  824.         _TENumStyles
  825.             move.w              #$000D,-(sp)
  826.             dc.w                $A83D
  827.         EndM
  828.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  829.         IMPORT_CFM_FUNCTION TENumStyles
  830.     ENDIF
  831.  
  832. ;
  833. ; pascal short TEFeatureFlag(short feature, short action, TEHandle hTE)
  834. ;
  835.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  836.         Macro
  837.         _TEFeatureFlag
  838.             move.w              #$000E,-(sp)
  839.             dc.w                $A83D
  840.         EndM
  841.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  842.         IMPORT_CFM_FUNCTION TEFeatureFlag
  843.     ENDIF
  844.  
  845. ;
  846. ; pascal OSErr TEGetHiliteRgn(RgnHandle region, TEHandle hTE)
  847. ;
  848.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  849.         Macro
  850.         _TEGetHiliteRgn
  851.             move.w              #$000F,-(sp)
  852.             dc.w                $A83D
  853.         EndM
  854.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  855.         IMPORT_CFM_FUNCTION TEGetHiliteRgn
  856.     ENDIF
  857.  
  858. ;
  859. ; pascal void TESetScrapLength(long length)
  860. ;
  861.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  862.         IMPORT_CFM_FUNCTION TESetScrapLength
  863.     ENDIF
  864.  
  865. ;
  866. ; pascal OSErr TEFromScrap(void )
  867. ;
  868.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  869.         IMPORT_CFM_FUNCTION TEFromScrap
  870.     ENDIF
  871.  
  872. ;
  873. ; pascal OSErr TEToScrap(void )
  874. ;
  875.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  876.         IMPORT_CFM_FUNCTION TEToScrap
  877.     ENDIF
  878.  
  879. ;
  880. ; pascal void TESetClickLoop(TEClickLoopUPP clikProc, TEHandle hTE)
  881. ;
  882.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  883.         IMPORT_CFM_FUNCTION TESetClickLoop
  884.     ENDIF
  885.  
  886. ;
  887. ; pascal void TESetWordBreak(WordBreakUPP wBrkProc, TEHandle hTE)
  888. ;
  889.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  890.         IMPORT_CFM_FUNCTION TESetWordBreak
  891.     ENDIF
  892.  
  893.  
  894.     IF OLDROUTINENAMES THEN
  895.     ENDIF    ; OLDROUTINENAMES
  896.     ENDIF ; __TEXTEDIT__ 
  897.  
  898.